Workplace Effectiveness:…ecision-Making Strategies/Workplace Effectiveness: Decision-Making Strategies.iso/pc/Files/Plan.dxr/00003_Navigation handlers.ls

Text File | 1998-12-16 | 1.4 KB | 73 lines

global gMasterData, gSection, gPlanNum, gHintOn

on goIntro
  go(label("intro"))
  set gSection to #intro
end

on goPlans
  go(label("plans"))
  set gSection to #plans
  set gPlanNum to 1
  set gHintOn to 0
  showQuestion()
end

on goLast
  go(label("last"))
  set gSection to #last
  set the member of sprite 8 to member "planfield"
  goNarrator(gMasterData, "203")
end

on nextPlan
  if not activationOn(gMasterData) then
    activate(gMasterData)
  end if
  if gPlanNum < 6 then
    set gPlanNum to gPlanNum + 1
    showQuestion()
    if gPlanNum = 6 then
      set the member of sprite 13 to member "print text"
    end if
  else
    leaveThisMovie()
  end if
end

on prevPlan
  if gPlanNum > 1 then
    set gPlanNum to gPlanNum - 1
    showQuestion()
    if gPlanNum = 5 then
      set the member of sprite 13 to member "click text"
    end if
  else
    goIntro()
  end if
end

on showQuestion
  set vArtText to 5
  set vFieldSp to 8
  set the member of sprite vArtText to member ("qplan" & string(gPlanNum))
  set the member of sprite vFieldSp to member ("pfield" & string(gPlanNum)) of castLib "Shared"
  if gHintOn then
    clearHint()
  end if
  case gPlanNum of
    1:
      audio1xOnly(gMasterData, "195")
    2:
      audio1xOnly(gMasterData, "196")
    3:
      audio1xOnly(gMasterData, "197")
    4:
      audio1xOnly(gMasterData, "198")
    5:
      audio1xOnly(gMasterData, "199")
    6:
      audio1xOnly(gMasterData, "200")
  end case
end